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LIBSSLEXICAL Internal routines for lexical functions 16-Sep- 1384 01: 98: 2 AX-11 Bliss-32 V nas Page 1 F 

14-Sep-1984 12:39:06 LIBRTL.SRC [iaLe Lica -B32;1 (1) : 
; 1 0001 QO MODULE LIBSSLEXICAL ( &TITLE ‘Internal routines for lexical functions’ ; 
; ¢ 4iC4 8 IDENT = '1-009' ' File: LIBLEXICA.B32 Edit: STAN1009 ; 
Py Bo8 ) s . 
$ 4 004 1 BEGIN : 
; 5 0005 1! ; 
3 $ BONS 1 eRe eRe RRR AEA AAA AERA E TTA TAA RARE eA Py 
3 0007 1 I * ; 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 2 ; 
; 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION. MAYNARD. MASSACHUSETTS. + : 
3 19 Baie : :* ALL RIGHTS RESERVED * ; 
e :* ® ' P+ 
3 \¢ pots 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE ysEp AND copieD a : 
3 1 901 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
3 14 0014 1 !* INCLUSION OF He ABOVE COPYRIGHT NOTI HIS SOFTWARE OR ANY OTHER * ; 
: 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY & : 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
3 i dE : be TRANSFERRED. * : 
3 '® * ; 
: 1G 0019 1 !* THE gt ree IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; 20 0020 1 !* AND SHOUL NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; $3 8053 } = CORPORATION. * : 
° :* * ° 
: 23 $058 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS x : 
; $¢ Oose : ‘* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
° :* 2 i Py 
; @& 0026 1 !* * 
: 27 0027 1 Peake eee e eee ee eee REAR AAAA AAA AAA AAA AAA AA AE TARARAARERAREAARAATe eee 
; 0028 1! 
; 2 94 1 
;: 0030 1 !++ 
5, 5 0031 1 ! FACILITY: General Utility Library, DCL 
; 32 O36 1: 
3 33 0033 1 ! ABSTRACT: 
3 34 0034 1! 
ae 0035 1! This module contains routines which form the common kernel of | 
: » 0036 1! the ren Levies Run-Time Library procedures and DCL lexical functions: 
s Sr 0037 1! ETDVI FSGETDVI 
: 38 0038 1} LIBSGETJPI FSGETJPI 
3 39 0039 1! LIBSGETSYI FSGETSYI 
:; 40 0040 1! 
; 0041 1 
; $¢ B0e§ ! ENVIRONMENT: User or supervisor mode - AST reentrant 
: rf] ooee ! AUTHOR: Steven B. Lionel, CREATION DATE: 13-July-1982 
; 646 0046 1 ! MODIFIED BY: 
3. 667 0047 1: 
; 0048 1 | 1-001 - Original. Adapted from the DCL module © LE EI CON. SBL 13-July-1982 
; #349 0049 1 | 1-002 - Use tables in LIBGETTAB.MAR. SBL 8-M 
;. - oe 0050 1 | 1-003 - Change string length from LNMSC NARLENGTH to 512. SBL 11-Mar-1983 
es 0051 1 ! 1-004 = Add AEXSTR format. O-May 3 
3 26 B88 1 § 1-005 = HEXSTR is now HEXSTRING. SBL 1 4-Ma -1983 
3 5 053 1! 1-006 = Add privileges TMPJNL, ste and §$ CURITY. SBL 28-July-1983 
; 54 054 1! 1-007 = Add new f format MODE for JPIS_MODE. Fix format H SREKSTRING. so that 
. 22 Se 055 1! the significant characters gét returned. SBL 
; & p28 1 | 1-008 - ont suppers for two new_arguments to evéscersy! ~ NODENAME and 
; 57 0057 1! CSIDADR. DG 19-Oct-1983. 
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6939 } } 1-009 = Fix handling of counted strings. STAN 27-Feb-1984. 
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LIBSSLEXICAL 1984 01:04:32 1 Bliss-3 
1-009 Declarations - 71882 93:95:38 LIBRTL-SRCILI 


2 4.0.74 
BLEXICA.832;1 (2). 


> 6 061 1 ZSBTTL ‘Declarations’ ; 
: 6 062 1! : 
; 664 065 1 ! PROLOGUE FILE: | : 
; 064 1! : 
; & 065 1 : 
.- or O98 1 LIBRARY ‘RTLLIB' ' SYS$SLIBRARY:LIB.L32 . 
; 68 ike REQUIRE 'RTLIN:LIBPROLOG'; i LIBS definitions : 
: 70 139 1: | : 
; 7 0140 1 ! LINKAGES: | 3 
Ty 0141 1! 3 
; 8146 1 3 
: 74 14 1 LINKAGE $ 
: (75 0144 1 CALL_LEXICAL = CALL; : 
._) # 0145 1 5 
. or 0146 1! : 
; 78 0147 1 ! TABLE OF CONTENTS: é 
s 79 0148 1! 3 
; 80 0149 1 F 
a 0150 1 FORWARD ROUTINE ; 
3; 6 (CB 0151 1 LIBS$GETDVI: CALL_LEXICAL, ! Get Device Information ; 
; 85 O136 1 LIBSSGETJPI: CALL_LEXICAL, ! Get Job/Process Information : 
; 8 0153 1 tiBss¢ GETSYI: CALL-LEXICAL ! Get System Imformation : 
3; 85 0154 1 LIBSSFORMAT_RESULT: NOVALUE; ' Format result : 
; 686 0155 1 5 
; OT 0156 1! ; 
6 «6S8 0157 1 ! MACROS: ; 
; 689 0158 1! 3 
; 90 0159 1! NONE 3 
; 91 0160 1! ; 
3 92 0161 1 ! EQUATED SYMBOLS: : 
5 Bie¢ 1! 3 
s 6% 0163 1! NONE ; 
> 9 0164 1! 3 
; | «96 0165 1 ! FIELDS: 3 
; «97 0166 1! 3 
s 0167 1! NONE 3 
> On 0168 1! 3 
; 100 0169 1 ! OWN STORAGE: 3 
: 101 0170 1! 3 
; 102 0171 1! NONE PF 
s 105 HEE 1! 3 
: 104 017 1 ! EXTERNAL REFERENCES: : 
3; 105 pire 1! 3 
; 106 175 «1 3 
s 307 0176 1 EXTERNAL ROUTINE : 
: 108 0177 1 OTSSCVT_L_T2; ' Convert to hex format é 
: 109 0178 #1 3 
3; 6110 0179 1 EXTERNA 3 
: 111 0180 1 CIBSSAB_ oe revi TABLE, ' Table of SGETDVI codes and types | 3 
: N¢ 0181 1 LIBS$AB_GETJPI-TABLE, ' Table of SGETJPI codes and types 3 
. oF 0182 1 LIBS$AB"-GETSYI" TABLE; ! Table of SGETSYI codes and types : 

| . 


ee , 


!44¢ 


i FUNCTIONAL DESCRIPTION: 
Kernel routine called from LIB$GETDVI and DCL to get device and 
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L IBSSLEXICAL nternal routines for lexical functions Jo~sen~ 138% 9}: 94:38 AX-11 Oi rear rs rita es Page 4 
-00 BSS$GETDVI = Internal routine for LIBSGETDVI 14-Sep-1984 12:39:06 LIBRTL.SRCJLIBLEXICA.B32;1 (3) 
ZSBTTL a LOsSGE TOY) - Internal routine for LIBSGETDVI' : 
GLOBAL ROUTINE LIBSSGETDVI ( ; 
ITEM_CODE: WORD SIGNED, ! $GETSYI Item code ; 
RET_STRING: REF VECTOR C, orig). ' Return string buffer : 
RET_NUMBER: REF BLOCK C, BYTE ! Return numeric buffer ‘ 
RET-LENGTH: REF VECTOR C, WORDS, | Returned Length : 
RET TYPE: REF VECTOR C, LONG], ! Returned type code ° 
EVERT_FLAG } ° 
CHANNEL: WORD, ' Channel number : 
DEVNAM_DESCR: REF BLOCK C, BYTE) ! Device name descriptor ‘ 
): CALC_LEXICAL = : 


volume information. See LIB$GETDVI for more information. 


WR OOVONOUSWN—"ODOONOu 


CALLING SEQUENCE: 


ret-status.wlc.v = LIBS$GETDVI ( 
item-code.rw.v, 
ret-string.wt.r, 
ret-number.wq.r, 
ret-length.wwu.r, 
ret-type.wl.r, 


Event flag to use 
event-flag.rl.v, 
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{ 
} 
5 
6 ! 
7 : 
8 : 
9 ! 
0 ' 
1 : 
2 ! channel.rwu.v, 
? : devnam-descr.rt.ds) 
> FORMAL PARAMETERS: 
i item-code The SGETDVI item code 
9 i ret-string A string of length 512 into which 
? is placed the string-formatted value. 
§ i ret=-number A quadword into which is placed the numeric 
Z value, if any. 
5 i ret-length A word into which is placed the length of 
$ the string in ret-string. 
8 i ret-type A lenquere into which is placed the type 
9 : code for the value being returned. The | 
0 : codes are LIBSK_FMT_xxx values defined 
1 in LIBFMTDEF.SOC. | 
: i event-flag A longword event flag number to use for 
: the S$GETOVI. 
6 i channel A word containing the channel to inquire 
7 } about. 
devnam-descr A string descriptor for the device name | 


-o 


being inquired about. 
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IMPLICIT I PUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 


SS$_NORMAL Normal successful completion 
SS$_xxx Any error status from $GETDVIW 


SIDE EFFECTS: 
NONE 


at tii iautnita’ 882; 31 


Mm 3 

VEEQSEHTCMLSGacewMaGP ENR RSET VCE RBbcerovs HECRESCIGRE PUSGHEHE  UMEMSMRIC UGH 
; 191 3 BEGIN | 
it . 

13e é i Declare fieldset that defines the layout of a GETDVI_ITEM 

196 6 , 

13 64 FIELD 

198 65 GETDVI_ITEM_FIELDSET = 

199 96 SET 

i SAVER: FO-'E-44: | Pulte fae code vue 

0¢ 69 A-NEXT = [3.0 6°63 ; i Offset ofvnext item 

$0 0571 wen 
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LIBSSLEXICAL rnal routines for lexical functions 16-Sep-1984 01:04:32 AX-11 Bliss-32 V4.0-74 
1-009 S$SGETDVI = Internal routine for LIBSGETDVI 137808- 1 3b 04:98: 6 YENBRTL SREILTBLEXICA. B82: 1 
06 LOCAL 


TABLE _ENTRY: REF BLOCK C, BYTE) FIELD (GETDOVI_ITEM_FIELDSET), 


5 urrent table en (b 
DUMMY_ENTRY: BLOCK [3, ey TE] FIELD (GETDVI_ITEM_FIELOSET), 
ITEM_CIST: BLOCK (16, BYTE, ! Item Lis® for $GETDVI 
10SB: VECTOR C4, WORD), i Status block 
RET_STATUS; ! Return status 
‘4 

i Look up ITEM_CODE in LIBS$AB_GETDVI_TABLE. 


TABLE _ENTRY = LIBSSAB_GETDVI_TABLE; ! Get first element. 


0 eels -TABLE_ENTRY CWLITEM) NEQ .I1TEM_CODE 

BEGIN 

TABLE_ENTRY = Laon ENTRY CA_NEXT); ! Get next item 
8 Y CwL_ITEM) EQL~0 ! No more items? 


IF .TABLE_ENTR 
THEN 


' Use dummy table entry 


BEGIN 
TABLE_ENTRY = DUMMY_ENTRY; 
J = LIBSK_FMT_BINARY; 


4 
4 
4 DUMMY-ENTRY (B_TYPE 
: EXITLOOP; 
END; 

'¢ 
3 Store type code. 
§ RET_TYPE CO] = .TABLE_ENTRY CB_TYPE); 
3 
3 


'¢ 
Fill in ITEM_LIST and do the $GETOVI. 


BERBERS FAWN NNN PONPNININPONPNPN 2 2 SS SS SS OOOO 
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ITEM_LIST CO,16,16,0) =_. ITEM CODE; ! Item code . 
IF TABLE_ENTRY CB_TYPE] LEQ CIBSK_FMT_MAXSTRING ! Is it a string? 
BEGIN 
ITEM_LIST 6-8-3260) = RET_STRING CO]; ! Return buffer 
ITEM_LIST (CO po '6 0] = 512; ! Buffer size 
1 TABLE _ENERY 6 TYPE) EQL LIBSK_FMT_HEXSTRING 
ITEM_LIST C0,0,16,0] = 256; ! Can't cvt more than 256 bytes 


ROPOPOPEPOAPINIPDNININDNININININININININININININYINININPININIPIPININO NON PONONINONONO POPU ToPonononofnoufnonononofnofnofnony 


5 

5 

5 

55 _NUMBER 0.0, 3. } = 0; ! Zero the buffer 

56 NUMBER [4 = 0; 

57 ITEM_LIST ( 6. 6 = RET_NUMBER (0,0,0,0];  ! Return buffer 
38 0 i M_LIST (0,0,16,0) = 8; : Buffer size (Quadword) 
60 ITEM_LIST £8 0 33 0) = RET LENGTH (0); ! Return Length 

6} 3 § ITEM“LIST £12,6,32,0) = 0; ! End of lis 


| 
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LIBSSLEXICAL Internal routines for lexical functions 16-Sep-1984 01:04:32 AX-11 Bliss-32 V4.0-74 Pp 
1-009 LIBSSGETDVI = Internal routine for LIBSGETDVI 12-8 08-13be 03:93:38 LIBRTL.SRCILIGLEXICA.B 2:1 — (s} | 
> 263 P 0329 RET_STATUS = SGETDVIW (EFN = .EVENT_FLAG, CHAN = .CHANNEL | 
: ee p : DEVNAM = DEVNAM_DESCR £0,0,0,0]7 ITMLST = ITEM_LISi, fos = J0OSB); 
: 266 0 IF .RET_STATUS 
: $8 6 ae 10SB C03 
> 269 0335 . oa : 
: 70 0 $ '¢ | 
: 71 0 ' Check for errors. 
3 Le: 0338 le 
. 27 0339 
: 3th 0540 IF NOT .RET_STATUS | 
: $78 b3e8 § RETURN .RET_STATUS; ! Return with error code 
: 278 0344 2 1+ | 
3; ey 0345 § ! Now call LIBSSFORMAT_RESULT to format the result, if necessary. 
: SB its Se Ee | 
: 282 0348 2 LIBSSFORMAT_RESULT (RET_STRING CO], RET_NUMBER C0,0,0,0], RET_LENGTH CO], 
: «283 0349 2 RET_TYPE FON, = re Fs 
> 284 0350 2 
> 285 0351 2 RETURN SS$_NORMAL; 
: 286 b326 2 
; 287 0353 1 END; ! End of routine LIBS$GETDVI 


-TITLE LIBSSLEXICAL Internal routines for lexical func 
Ss 

IDENT \1-009\ 

-EXTRN OTSSCVT_L_TZ, LIBSS$AB_GETDVI_TABLE 

-EXTRN LIBS$AB~GETJPI_TABLE 

-EXTRN LIBSSAB-GETSYI_TABLE 

-EXTRN SYSSGETBVIW 


-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 


0000 00000 -ENTRY LIBSSGETDVI, Save nothing : 0184 

5E 1c C2 9000¢ SUBL2 : 
50 000000006 00 9€E 0000 MOVAB LIB$$AB_GETDVI_TABLE, TABLE_ENTRY 3 0284 
06 AC 60 81 0000C 1$ CMPW (TABLE_ENTRY) , ITEM_CODE : 0286 
50 5 (3 00019 ADDL i TABLE _ENTRY : 0289 
60 8 G901$ TSTW © (TABLE_ENTRY) ; $550 
50 6 of 50019 MOVAB by Y_ENTRY, TABLE_ENTRY : 9293 
02. AE OB 30 0001 MOVB 78. DOMMY ENTRY 7 > 0294 
14 BC 02 AO 9A 00020 28 MOVZBL 2(fABLE_ENTRY), @RET_TYPE ; 93 
OE A Bs AC 80 00 MOVW TEM _COBE, ITEM_LIST? ; 030 
0 2 AO 91 OOO2A CMPB (TABLE_ENTRY), : 0310 

19 1A 00 BGTRU 3$ ; 
10 AE 08 AC b9 0 MOVL RET STRING, ITEM_LIST+4 : 0313 
OC AE 02 8F 8 99 MOVe #512, ITEM_LIST : 0314 
02 02 Ad 91 00038 CMPB e(TABLE_ENTRY) , #2 : 0315 

16 13 003F BNEQ ; 
OC AE 0100 8F BO 00041 MOVW #256, ITEM_LIST > 0317 


ereaat 
1-009 


; Routine Size: 


149 bytes, 


7E 
000000006 00 
17 


50 
10 
7E 
7E 
0O00v CF 

50 


Routine Base: 


ternal routines for lexical functions 
BSSGETDVI = Internal routine for LIBSGETDVI 


OE 11 
oc af bO 
8 
08 4 
10 AC D 
18 AE be 0 
7E 7C 00 
7E 04 00 
10 AE 9F 00 
1¢ =6AE «O9F 00 
20. «AC Bo 8 
i. MM 3 
oA RR 
50 F? 00 
an: 
10 AC 5 3° 
“eR 
01 00 00 
04 00 


-LIBSCODE + 0000 


on lo lo leolelololololeoleleleleolelolelelelolololo) 
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4$ 
RET NUMBER, RO 


RO. ITEM_ LIST +4 
#8. ITEM 

REf tEheTH sTTEM. LIST+8 
ITEM_LIST+12 

=(SPJ 


{A 

A} NT SEAS 

RET SrArG S, 5$ 

10SB, RET STATUS 

RET Status, 5 

RET ~PENGTH, =(SP) 
TISTRING, -(SP) 

#4, “LIBSSFORMAT_ RESULT 


2 
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Ae88251 
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LIBSSLEXICAL Internal routines for lexical functions 16-Sep-1984 91:06: 3¢ AX-11 aT V4.0-74 Page 10 
1-009 LIBSSGETJPI = Internal routine for LIBSGETJP1 14-Sep-1984 12:39:06 LIBRTL.SRCJLIBLEXICA.832;1 (6) 
: 289 0354 1 XSBTTL ‘LIBSSGETJPI - Internal routine for LIBSGETJPI' : 
; 290 8 5 1 GLOBAL ROUTINE LIBSSGETJPI ( ; 
: 291 § 1 ITEM_CODE: WORD SIGNED, ! $GETJPI Item code ; 
; 3 0 1 RET_STRING: REF VECTOR C, BYTE), ' Return string buffer ; 
Lae 28 1 RET_NUMBER: REF BLOCK C, BYTE ' Return numeric buffer : 
: 294 59 1 RET-LENGTH: REF VECTOR C, WORDS, | Returned Length ; 
; 295 60 1 RET TYPE: REF VECTOR C, LONGI, ! Returned type code ; 
>; 2% 0361 1 EVENT FLAG, ' Event flag to use ; 
: 297 0 $¢ 1 PIDADBR, ! Address of PID ; ; 
; 298 03635 1 PRCNAM_DESCR: REF BLOCK C, BYTE) ! Process name descriptor ; 
: 299 0364 1 ): CALC_LEXICAL = ; 
; 300 0365 1 : 
> 301 0366 1 !++ : 
5 Oe tat4 : FUNCTIONAL DESCRIPTION: : 
; 304 0369 1! Kernel routine called from LIBS$GETJPI and DCL to get job and : 
3 84 B39 : process information. See LIBSGETJPI for more information. : 
; 307 O37¢ 1 ! CALLING SEQUENCE: : 
; 308 0373 1! ; 
; 309 0374 1! ret-status.wlc.v = LIBS$GETJPI ( : 
" 319 0375 1! item-code.rw.v, : 
. i 0376 1! ret-string.wt.r, : 
: sig 0377 1! ret-number.wq.r, : 
3. a 0378 1! ret-Length.wwu.r, : 
: 314 0379 1! ret-type.wl.r, : 
; 315 0380 1! event-flag.rl.v, | : 
is 36 0381 1! pidaddr.ra.v, : 
3 pier O3e6 1! prcnam-descr.rt.ds) 3 
: 318 0383 1! | 3 
; «319 0384 1 ! FORMAL PARAMETERS: ; 
: 320 0385 1! . ; 3 
; gel 0386 1! item-code The $GETJPI item code | ; 
3 $56 0387 1! : ; 
; se 0388 1! ret-string A string of length 512 into which F 
3 Se b855 : is placed the string-formatted value. : 
: 326 0391 1! ret-number A quadword into which is placed the numeric : 
; 4 Bane 1! value, if any. s 
3 Ses 0393 1! 3 
: 44 0394 1! ret-length A word into which is placed the length of : 
; 3 0395 1! the string in ret-string. 3 
s 35) 0396 1! 3 
3 $$ 0397 1! ret-type A longword into which is placed the type 3 
z oe 0398 1! code for the value being returned. The : 
; 334 0399 1! codes are LIBSK_FMT_xxx values defined : 
: tH 0400 1! in LIBFMTDEF.SOC. : 
: 336 0401 1! 3 
; 6S Ree 1: event-flag A Longverg event flag number to use for : 
; 3 ot : the SGETJPI. : 
; 340 0405 1! pidaddr The address of the PID, if any, being inquired 3 
: re Be08 : about. : 
5 28 O28 7: prcnam-descr A string descriptor for the process name : 
3 rf: rt 44 : being inquired about, if any ; 
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Normal successful completion 
Any error status from $GETJPIW 


_ 
x 
= 
ax 
Ox 
zx 
4 


+. ess66 6666646 6. 6 i 
33333333333S3S33S3SS 


IMPLICIT INPUTS 
NONE 
IMPLICIT OUTPUTS 
NONE 
COMPLETION STATUS: 
S85 
SIDE EFFECTS 
NONE 
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LIBSSLEXICAL Internal routines for lexical functions 19730071386 93:06:38 AX-11 Oh lagers Pita as Page 12. 
-009 LIBSSGETJPI = Internal routine for LIBSGETJPI] 14-Sep-1984 12:39:06 LIBRTL.SRCILIBLEXICA.B52;1 (7) 

> 365 0429 BEGIN 
3 4] 0430 
; 9 1 '¢ 
; re} Be ¢ Declare fieldset that defines the layout of a GETJPI_ITEM. 
: 376 0434 
; 71 0435 FIELD 
: 37 0436 GETJPI_ITEM_FIELDSET = 
; a 0437 SET 
; 374 0438 2 WLITEM = (0,0,16,1), ! JPI$_ item code value 
; 375 0439 2 B-TYPE = (0,16,8,0), i LIBSR_FMT_ type code 
: 376 D440 A-NEXT = £3.0,0,6) i Offset of next item 
5 avr 0441 5 
; 378 0442 2 


= 


- 


4 
LIBSSLEXICAL Internal routines for lexical functions 18-5 Sep =1386 93:95:38 AX-11 BLi fegr3e ED ue 
1-009 LIBSSGETJPI = Internal routine for LIBSGETUPI 14-Sep 2:39: LIBRTL.SRCJLIBLEXICA.B352;1 
3 80 443 LOCAL 
: } tte TABLE ENTRY: REF BLOCK C, BYTE) ant phe de 9 ITEM_FIELDSET), 
: 38 44g DUMMY_ENTRY: BLOCK p. mS FIELD (GETJPI ITEM. Fletbser), 
; 384 44 ITEM_CIST: BLOCK tt Item Lis® for $GETUP 
; 85 448 1088: VECTOR (4, edb block 
; 386 449 RET_STATUS; ' Return status 
3 87 450 
; 88 0451 '¢ 
: 389 436 i Look up ITEM_CODE in LIBS$AB_GETJPI_TABLE. 
3 : bcs TABLE_ENTRY = LIBSSAB_GETJPI_TABLE; ! Get first element. 
; 94 0457 WHILE .TABLE_ENTRY CW_ITEM] NEQ .ITEM_CODE 
; 395 0458 dO 
: 396 0459 BEGIN 
; 97 0460 int ENTRY = LE_ENTRY CA =NEXTI; ' Get next item 
; 398 0461 . TABLE RENTRY W_TTEM) EQL~0 ' No more items? 
; 399 Be Og Yr EN 
; 400 0463 4 EGIN 
; 401 0464 4 TABLE_ENT DUMMY_ENTRY; ! Use erry Be entry 
: 40 0465 4 TABLE ENTRY [e. TYPE] = LIBSK_FMT_BINAR 
; 40 0466 4 EXITLOOP; 
- & 0467 3 : 
; 405 0468 2 END; 
3 0469 2 
3; 407 0470 2 '¢ 
; 408 0471 2 ! Store type code. 
; 409 0472 2 !- 
; 410 0473 2 
s 611 0474 2 RET_TYPE CO] = .TABLE_ENTRY CB_TYPE]; 
; 412 0475 2 
; 413 0476 2 '¢ 
: 416 0477 2 ' FILL in ITEM_LIST and do the $GETJPI. 
s 615 0478 2 te 
; 416 0479 2 
3 417 0480 2 ITEM_LIST iN 16,16,0)] = .ITEM CODE; |! Item code 
: 418 0481 2 IF .TABLE_ENTRY (B-TYPE) LEQ CIBSK_FMT_MAXSTRING 
; 419 048 EN 
; 420 048 sesin. 
; 421 0484 ITEM_LIST £6 0.320) = RET_STRING (0); ! Return buffer 
: $$8 0485 ITEM_LIST €0,0,16,0) = 512; i Buffer size 
; 43 0486 IF ABLE_ENTRY (B_TYPE] EQL LIBSK_FMT _HEXSTRING 
: 425 0488 ITEM_LIST (0,0,16,0] = 256; ! Can't cvt more than 256 bytes 
: 426 0489 3 END 
: 4627 0490 ELSE 
; 428 0491 BEGIN 
: +. 049 RET_NUMBER £0-0.38-0) = 0; ! Zero the buffer 
s @ 049 RET NUMBER (4,0 3¢ = 0; 
> 431 0494 ITEM_LIST £46. 3 16} = RET_NUMBER (0,0,0,0); |! Return buffer 
; $36 rtd i 0,0,16,0) = 8; {Buffer size (Quadword) 
: 434 49 ITEM_LIST [8 0 33 0) = fet _LENGTH (0); ' Return Length 
: 435 0498 : ITEMTLIST (12,6,32,0) = i End of Lis 
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fout ines for lexical functions 
RET ie = SGETJPIW (EFN = EVENT 
PRCNAM = PRCNAM_DESCR (0,0,0,0]7 
IF .RET_STATUS 
THEN 
RET_STATUS = .10SB (0); 
'¢ 
a Check for errors. 
IF NOT .RET_STATUS 
THEN 
RETURN .RET_STATUS; 


1+ 


H 
1 
- Internal routine for LIBSGETIPI i2 
JFL 
I 


82 AX-11 a ita es 

: LIBRTL.SRCJLIBLEXICA.B52;1 
D 

T 


R 
08 = 10SB); 


- Now call LIBSSFORMAT_RESULT to format the result, if necessary. 


LIBSSFORMAT ResutT (RET_STRING CO], RET_NUMBER (0,0,0,0], RET_LENGTH (OJ, 


RET_TYPE C 


RETURN apa: 
END; 


0000 00000 
5E 7. ff 4h 
50 000000006 00 9€ 0000 
04 AC 60 B61 0000C 
Of 13 00010 
50 03 co Beets 
60 B85 0001 
FS 12 00017 
50 gf 3 00019 
AO 08 90 0001C 
14 «BC 02 AO 9A 00020 
A 04 AC 89 0025 
0 02 A 1 QO02A 
19 1A 8 
10 AE 08 ac 00 
OC AE 020 8F 4 3 
02 0 AO 91 00 
16 is 003F 
OC AE 0100 F BO 00041 
—E 11 Obey 
50 oc AC pO 0049 
$° € 00040 
10 AE ; Dd S 4f 
OC AE 08 8B 3 
14 AE AC 00 00 
?¢ 0008 
C 0005F 


routine LIBS$$GETJPI 


SYSSGETJPIW 
LIBSSGETJPI, Save nothing 


LIBSSAB GETJPI_TABLE, TABLE_ENTRY 
TABLE ENTRY), ITEM_CODE 


#3, TABLE ENTRY 
(TABLE ENTRY) 


Y_ENTRY, TABLE _ENTRY 
OB. OTTABLE. ENTRY) 


2(fABLE_ ENTRY), @RET_TYPE 
TEM CODE, ITEM -L{St¥2 
(TABLE ENTRY) ,~ 

RET STRING, ITEM_LIST+4 

#512, ITEM_LIST 

ect TABLE_ENTRY), #2 

#256 , ITEM_LIST 

RET_NUMBER, RO 

(ROY 


a HT ren LIST+4 


# 1ST 
ITEM_LIST+8 
ITEM ENT 


Sn 


Re te Se Se Se Se Be Se Se Be Se Be Se Ge Se Se Se Ge Se Ge Se Se Se Se Se Se Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ee Se Se ee Se Se ee Beas 


~ mnwnw ww 
® oooo oo 
oa Pete te te *e*e *e te Fe te te tate 
© 
a 

= 

** 

N 
ue 
~—w@ 

| Ws 
'‘< 
| ou 

one 
woox< 

| Sus | 
| | ol ~ | 
Nw = 
| me > } 
j ‘os ” 
ar w 
| "nu tant * 4 
~WN 32 23> "Me 
@s: ~ =e Ow~ewct 

~' a awmami iz 
bh CT i Se cd a 
-a ~~ &—-§ mM = = oO 
‘@ own mrTrou 
ae? —- «ore D-2ZeH 
<q WY JIA Wr O--* 
>ws s—aundadtz2am 

2a Oe ere 
Qaemw mung 
fs} ae 4 m ete 
Mwow Mere * © 
No OFS > WOWWW ST 
MO ——Awee-Ccecee 
ro 
om ww — 
os oe <= IW 1] ” 
Nm IITOTIVYVNVIIO WIA 
o-—- YMN>UNIDO>a>>I>e 
D>DOD< YO 4w8M8 30a Ow 
wWvTs QAQAF0AV%OFOFZEYCFTe 
ao00 
on 
om 
a) 
aa 
wee ~~ 
mn A 
i) w 
roy 
Ke TP OWMNO Va Mr Vu 
SOOOOCOOCOOCOCOoOOoOOoOOoO WW 

- Ooooooooooooo S 

> «wr OOOOvetoomowrT oOo 

~~ Oor Ou wMwP-Pr- uu OO a 

oO 
PQ WW OWOVUT w 
cm «aaa aconaitnactoo a 
lor oO 
-o- J w 
ee A 
vt vowed Tr of rs a] 
co Oeece Oo -o - 
Se ad 
a ‘ 

a 
~c 
o-- ee 
vw a 
->s " 
xo w On°r~-OOwuuO a 
ew ~ OFmecrhrh OW @ 
—— 

—_ a 
—@ o > c 
oc Oo Oo - 
- oO oO ~ 

a Oo Oo > 
nw Oo Oo °o 
ec So = 
c- o 
- o 
wo Oo 
3 
o-= ing 
ca " 

=» wy 
ee ro 
Ow ~ 
cw 2 
Le 
VA w 
~@m w 
c- - 
_ 

a 

N 
a yard 
<« ” 
v 
a a 
= c 
ws ay 
coal cod 
AD 3 
AD fo) 
@O oe 
5 
ae #8 


Be Se Be Oe Ge Be Se Se Fe Se Se Se Se BF Se Se FH Se Se BH Se Ge FH Se Se Se Se ee Se Sete Ge Ge Ge Se Ge 84 Ge Se Ge Ge FHS Se Se Sse ee Se Se Se Ge Se Se Ge Se Se ee 


LIBSSLEXICAL 
1-009 


500 


SisaraT= 


oS 
DONO UES Ww —O0On 


PVPVDPVPUPVPUP PUPA ASIII 


4 


CALLING SEQUENCE: 


ret-status.wilc.v = LIBS$GETSYI ( 
tem-code.rw.v, 
ret-string.wt.r, 
ret-number.wq.r, 
ret-length.wwu.r, 
ret-type.wl.r, 
event-flag.rl.v, 
csidadr.ra.v, 
nodename-descr.rt.ds) 


FORMAL PARAMETERS: 


AWE WN OC OONOULS WN "OO OONOUL wT 


54 

54 

54 

54 

54 

54 

54 

54 

55 

55 

55 

55 

55 

22 item-code The SGETSYI item code 

55 ret-string A string of length 512 into which 

36 is placed the string-formatted value. 

56 ret-number A quadword into which is placed the numeric 
2° value, if any. 

56 ret-length A word into which is placed the length of 
266 the string in ret-string. 

568 ret-type A lLongword into which is placed the type 
569 code for the value being returned. The 
570 codes are LIBSK_FMT_xxx values defined 
ya in LIBFMTDEF .SOC. 

258 event-flag A Longuerd event flag number to use for 
ye the $GETSYI. 

576 csidadr The address of CSID source/destination, 
IAG if any, being inquired about. 

35 nodename-descr & string descriptor for the nodename being 
289 inquired about, in any. 


Internal routines for lexical fynct fons 18-Sep-19 4 91:08 3 AX-11 Oi leant te Page 16. 
LIBSSGETSYI = Internal routine for LIBSGETSYI 14-Sep-1984 12:39:06 LIBRTL.SRCJLIBLEXICA.B32;1 (9 | 
5 ZSBTTL "LIBSSGETSYI = Internal routine for LIBSGETSYI' 
§ GLOBAL ROUTINE LIBSSGETSYI ( 
ITEM_CODE: WORD, ! $GETSYI Item code 
5 8 RET_STRING: REF VECTOR [, BYTE), ! Return string buffer 
05 RET_NUMBER: REF VECTOR [, BYTE), ! Return numeric buffer 
0530 RET_LENGTH: REF VECTOR C, WORDJ, ' Returned Length 
0531 RET TYPE: REF VECTOR C, LONG), ! Returned type code 
05 EVERT FLAG, ' Event flag to use 
05 CSIDAB ! Address of CSID src/dest 
05 NODENAME_DESCR: REF BLOCK C, BYTE] ! Nodedname descriptor 
535 ): CALL_CEXICAL = 
339 
5 '4¢ 
2 3 FUNCTIONAL DESCRIPTION: 
540 Kernel routine called from LIBSGETSYI and DCL to get system-wide 
541 information. See LIBSGETSYI for more information. 


2 aaa |S AT et eS A 15: sen-] 984 94:93:38 | HOaRT SAE ST PEL ER oa 62.1 Page ff 
; 9 3 ! IMPLICIT INPUTS: 

: 3¢¢ A ii NONE 

i }gh 3 | | ImPLiciT outputs: 

eo fap 

: 2 3 44 ! ; COMPLETION STATUS: 

: 530 0296 1 SS$_NORMAL Normal successful completio 

§ ; 1 3237 } SS$_xxx Any error status from $GETSYIW 
i 3 § 0595 1 | SIDE EFFECTS: 

: 535 oe97 1 | NONE 

: 536 0598 1 | 

: 537 0599 1 i-- 


oe 


BEGIN 
14 
Declare fieldset that defines the layout of a GETSYI_ITEM. 


FIELD 
shi | ITEM_FIELDSET = 
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routines for lexical functions 1 4 01:04: 
I = Internal routine for LIBSGETSYI 12: et 7 93:93:06 


Sep-19 


LOCAL 
TABLE_ENTRY: REF BLOCK C, BYTE] fe ne bos i od ITEM_FIELDSET), 


Cur able 
DUMMY ENTRY: Fock RD f3, BYTE) FIELD (GETSYI. “ITEM, FieLbser), 


10S8:" VECTOR ! status blo 
ITEM Me BLOCK ary anes. ! Item list for SeTSYI 
RET_STATUS; ' Return status 


'+ 


a Look up ITEM_CODE in LIBSS$AB_GETSYI_TABLE. 


TABLE_ENTRY = LIBSSAB_GETSYI_TABLE; 
inal ~TABLE_ENTRY CW_ITEM] NEQ .ITEM_CODE 


' Get first element. 


' Get next item 


BEGIN 
ieee E_ENTRY = tte ENTRY pA feat: 
! No more items? 


.TABLE_ENTRY CW_ITEM] E 
THEN 


ENTRY = DUMMY _ENTRY 


TABLE se dummy entry 
TABLE TENTRY (B_TYPE] = LIBSK. FMT BINARY: 


END; 
'¢ 


Store type code. 


RET_TYPE CO) = 
'¢ 


Fill im ITEM_LIST and do the $GETSYI. 


-TABLE_ENTRY CB_TYPE); 


ITEM_ CODE; ! Item c 


ITEM_LIST (0,16,16,0) = ode 
IF . TABLE “TYPE] LEQ CIBSK! FMT “MAXSTRING 


_ENTRY (B 


. X-11 Blis ari 
IBRTL.SRC 


-3 
I 


IN 

ITEM_LIST £6 0.3260) = RET_STRING CO); ! Return buffer 

ITEM_LIST (0,0,16,0] = 512; i Buffer size 

IF TABL ENTRY C6_TYPE] EQL LIBSK_FMT_HEXSTRING 

am ITEM_LIST (0,0,16,0] = 256; ! Can't cvt more than 256 bytes 
ELSE 

BEGIN 

ITEM_LIST £6 -8 32-0) = RET_NUMBER [0]; ! Return buffer 

pIERALIS! 0,0,16,0) = 8; ! Buffer size (Quadword) 
ITEM_LIST [8 0 33 0) = RET_LENGTH (0); ' Return Length 
ITEMTLIST £12,0,32,0) = 0;7 i End of Lis 
RET_STATUS = SGETSYIW (EFN = .EVENT_ FLAG, CSIDADR = .CSIDADR 

NODENAME = .NODENAME DESCR,ITMLST = it TEM_LIST, 10SB = 1088); 
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utines for lexical functions 
- Internal routine for LIBSGETSYI 


IF RET_STATUS 

RET_STATUS = .10SB (0); 
IF NOT .RET_STATUS 

RETURN .RET_STATUS; 


'¢ 


Now call LIBSSFORMAT_RESULT to format the result. 


see 4 a) iS) (RET_STRING CO], RET_NUMBER (OJ, RET_LENGTH (OJ, 


RET_TYP 
RETURN SS$_NORMAL; 
END; 


So 
oO 


MUM NS VOONTTOWOS-O—09 9 — 0F 000-70 -- Dore 


5E 1¢ 

50 000000006 00 

04 AC 60 
‘ 

50 0 

60 

FS 

50 6E 

AQ 08 

14 BC 02 Ad 
AE 04 Ac 

03 02 ag 

08 AE 08 AC 
04 AE 0200 8F 
02 02 40 

04 AE 0100 =8F 
09 

08 AE oc AC 
04 AE 08 
OC AE 10 AC 
10 AE 

7E 

1¢ AE 

10 AE 

7 1¢ = =AC 
18 ag 

000000006 90 

1 0 

50 14 =A 

10 5 
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ite kote none 4 ee ee neta 
SWS 


! End of 


~EXTRN 
-ENTRY 
2 


routine LIBS$GETSYI 


SYSSGETSYIW 
LIBSSGETSYI, Save nothing 


LIB$$AB_GETSYI_TABLE, TABLE_ENTRY 
(TABLE ENTRY) , ITEM_CODE 


2 
#3, TABLE_ENTRY 
(TABLE_ENTRY) 


& 

2(TABLE_ENTRY), @RET_TYPE 
TEM ‘ ITEM_LIST#2 
(TABLE_ENTRY), # 


RET STRING, ITEM_LIST+4 
#512, ITEM-LIST 

2 (TABLE ENTRY) , #2 
#256, ITEM_LIST 


RET NUMBER ITEM_LIST+4 

#8, ITEM_LIST 

RET_LENGTH, ITEM_LIST+8 
EM LIST+{2 


RET STATUS 
TATUS, 5$ 


5 
LIBBRERICAL—dnggroptcputines, tor Lenical tynetieptcersya TE: op-198e $3:95:08 — ECTantu SRST ERiCa 682, 1 


ze 19 AC 7D A mova RET LENGTH, (SP) 
08 AC 7D MOVa = RET RING, =(SP) 
0000v cf 4 Ff CALLS #4, LIBSSFORMAT_RESULT 
0 1 0 MOVL #1, RO 
04 O008A 5$: ET 


; Routine Size: 139 bytes, Routine Base: _LIBSCODE + 0125 


5 

IBSSLEXICAL Internal routines for lexical functions 1b-se -1984 01:04:32 AX-11 Bliss-32 V4.0-74 Page 22 
4-009 LIBSSFORMAT_RESULT = Format the result 14-Sep-19 4 93:95:38 LIBRTL. RESLIBLEXICA B92: 1 35 
>: 631 690 1 XSBTTL "LIBSSFORMAT_RESULT = Format the result’ : 
3; © § 691 1 GLOBAL ROUTINE LIBSSFORMAT_RESULT ( 
3; 8 692 1 RET_STRING: REF VECTOR'C, arte. ' Return string buffer 
; § 693 1 RET_NUMBER: REF BLOCK C, BYTE ' Return numeric buffer 
; 635 694 1 RET-LENGTH: REF VECTOR C, WORDS, | Returned Length 
; 6 0695 1 RET TYPE: REF VECTOR C, LONG) ! Returned type code 
; 637 0696 1 ): NOVALUE = 
> 638 697 1 
; 639 698 1 !++ 
; 640 99 1 ! FUNCTIONAL DESCRIPTION: 
; 641 0700 1! 
> 64 878) : Called by LIBSS$GETxx!] routines to convert the value returned 
3 i BFS : by the SGETxx] service to the appropriate string format. 
; ; 
; 645 0704 1 ! CALLING SEQUENCE: 
; 646 0705 1! | 
; 667 0706 1! CALL LIBSSFORMAT RESULT (ret-string.mt.r, ret-number.rq.r, 
: 648 0707 1! ret-Llength.mwu.r, ret-type.rl.r) 
> 649 0708 1! 
; 650 0709 1 ! FORMAL PARAMETERS: 
; 651 0710 1! 
: 65 0711 1! ret-string A string of Length 512 into which 
; & fat 13 is placed the formatted result. If the 
; 654 07135 1! value type is already a string, the value 
; 655 0714 1! is in ret-string. 
; 656 0715 1! . 
; 657 0716 1! ret-number A quadword containing the numeric value to 
; 658 0717 1! be formatted. 
3 637 0718 1! 
; 660 0719 1! ret-length A word containing the current length of the 
; 661 0720 1! string in ret-string, if any, and into which 
; $66 144 : is stored the length of the formatted result. | 
; 664 $758 ; ret-type A longword indicating the type of the value. 
> 665 0724 1! The type codes are LIBSK_FMT_xxx symbols and | 
; 666 0725 1! are defined in LIBFMTDEF.SDL. 
; 667 b7s6 1! 
; 668 0727 1 ! IMPLICIT INPUTS: 
3; 669 0728 1! 
; 670 19 1! NONE 
3; 671 0730 1! 
3; 672 0731 1 =! IMPLICIT OUTPUTS: 
3; 673 07 ; 7 
3; 674 of 1! NONE 
3; 675 734 «1! 
; 676 0735 1 ! COMPLETION STATUS: 
3; 677 07 $ 1! 
; 678 737 1! NONE 
3; 679 rae 1! 
; 680 7 1 ! SIDE EFFECTS: 
; 681 740 1! 
; o8¢ 741 1! NONE 
; 68 742 1! 
> «684 743) 1 Se 
: Be ats} BEGIN 
; rey 746 : 
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5 
LIBSSLEXICAL Internal routines for Lexical functions rbese -1984 01:04:32 AX-11 Bliss-32 V4.0-74 Page 24 
1-009 LIBSSFORMAT_RESULT = Format the result 12-8 08- 1 ope 03:93:38 LIBRTL. REIL ISLEXICA 84231 . (135 
: 745 0804 ! Table of privilege names. 
: 746 9809 ie 
: 767 88 
> 748 080 GLOBAL BIND 
> 749 0808 LIBS$Ay PRV NAMES = UPLIT BYTE ( 
: 750 080 ASCIC'CMKRAL' ,SASSUME (SBITPOSITION(PRVSV_CMKRNL), EQL, 0) | 
; 731 0810 ZASCIC'CMEXEC’,SASSUME (SBITPOSITION(PRVSV~CMEXEC), EQi, 1) 
ee. é 0811 ZASCIC'SYSNAM' ,SASSUME (S$BITPOSITION(PRVSV-SYSNAM), EQL, ¢) 
: 75 OB1¢ ZASCIC'GRPNAM' .SASSUME (S$BITPOSITION(PRVS$V-GRPNAM), EQL. 3) | 
: 754 081 XASCIC'ALLSPOOL’ ,SASSUME (S$BITPOSITION(PRVSV_ALLSPOOL), EQL, 4) 
: 755 0814 ZASCIC'DETACH' SASSUME (SBITPOSITION(PRVSV DETACH), EQL, 5) 
: 756 0815 TASCIC'DIAGNOSE' ,SASSUME ($BITPOSITION(PRVSV_ DIAGNOSE), EQL, 6) 
: 757 0816 XASCIC'LOG 10°, SASSUME (SBITPOSITION(PRV$V_LOG 10), EQL, 7) 
; 758 0817 ZASCIC'GROOP’ SASSUME (SBITPOSITION(PRVSV GROUP), EQL, 8) 
: 759 0818 ZASCIC'NOACNT' ,SASSUME (SBITPOSITION(PRVSV_NOACNT), EQL, 9) 
: 760 0819 ZASCIC'PRMCEB' ,SASSUME (S$BITPOSITION(PRVSV-PRMCEB)., EQi, 10) 
: 761 0820 YASCIC'PR SASSUME (SBITPOSITION(PRVSV-PRMMBX), EQL, 11) 
: r6¢ 0821 XASCIC'PSWAPM' .SASSUME (SBITPOSITION(PRVSV-PSWAPM), EQL, 1¢) 
: 76 08 : ZASCIC'SETPRI',SASSUME (SBITPOSITION(PRVSV-SETPRI). EQL. 13) 
: 764 082 XASCIC'SETPRV' .SASSUME (SBITPOSITION(PRVSV-SETPRV), EQL, 14) 
> 765 0824 XASCIC'TMPMBX' SASSUME ($BITPOSITION(PRVSV-TMPMBX), EQL, 15) 
: 766 0825 XASCIC'WORLD',SASSUME (SBITPOSITION(PRVSV_QORLD), EQL, 16) 
> 767 0826 ZASCIC'MOUNT’ SASSUME (SBITPOSITION(PRVS$V MOUNT), EQL. 17) 
: 768 0827 XASCIC'OPER' ,SASSUME (SBITPOSITION(PRV$V_OPER), EQL, 18) 
: 769 0828 XASCIC*EXQUOTA' ,SASSUME (SBITPOSITION(PRUSV EXQUOTAS, EQL, 19) 
: 770 0829 TASCIC'NETMBX' ,SASSUME (SBITPOSITION(PRVSV_RETMBX), EQL, 30) 
: 771 0830 2 XASCIC'VOLPRO'.SASSUME (SBITPOSITION(PRVSV-VOLPRO). EQL. 21) 
: 772 0831 2 XASCIC'PHY_I0*.SASSUME (SBITPOSITION(PRVSV-PHY_10). EQL. 22) 
: 773 OB3¢ 2 XASCIC'BUGCHK',SASSUME (SBITPOSITION(PRVSV-BUGCHK), EQL, 23) 
: 77% 0833 2 XASCIC'PRMGBL'.SASSUME (SBITPOSITION(PRVSV-PRMGBL). EQL, 24) 
: 775 0834 2 XASCIC'SYSGBL'.SASSUME (SBITPOSITION(PRVSV-~SYSGBL), EQL. 25) | 
: 776 0835 2 ZASCIC'PFENMAP’ SASSUME (SBITPOSITION(PRVSV-PFNMAP). EQL. 26) 
; 7277 0836 2 ZASCIC'SHMEM' SASSUME (SBITPOSITION(PRVSV SHMEM), EQL, 27) 
: 778 0837 2 XASCIC'SYSPRV' ,SASSUME (SBITPOSITION(PRVSU_SYSPRV), EQL, 28) | 
> 779 0838 2 XASCIC'BYPASS' .SASSUME (SBITPOSITION(PRVSV-BYPASS). EQL. ¢9) 
: 780 0839 2 ZASCIC'SYSLCK" .SASSUME (S$BITPOSITION(PRVSV~SYSLCK), EQL. 30) 
: 781 0840 2 ZASCIC'SHARE',$ASSUME (S$BITPOSITION(PRVSV_SHARE), QL, $1) | 
: 78 0841 2 XASCIC'UPGRADE',SASSUME ($BITPOSITION(PRVSV_UPGRADE), EQL, 0) ! | 
: 78 0842 2 XASCIC'DOWNGRADE',SASSUME (SBITPOSITION(PRVSV_ DOWNGRADE), EQL, 1) ! 33 | 
> 784 084 : ZASCIC'GRPPRV'  SASSUME (SBI TPOSITION(PRVSV_GRPPRV), 
: 785 0844 ZASCIC'REA SASSUME (SBITPOSITION(PRVSV_READALL), EQL, 3) ! 35 
: 786 0845 2 XASCIC'TMPINL.SASSUME (SBITPOSITION(PRVSV_TMPJNL), EQL, 4) ! 36 | 
: 787 0846 ZASCIC'PRMINL'.SASSUME (S$BITPOSITION(PRVSV-PRMJNL), EQL. 5) | 37 | 
: 788 0847 XASCIC'SECURITY’ ,SASSUME (SBITPOSITION(PRVSV_SECURITY), EQL, 6) ! 38 
: 789 0848 ) ' End of | 
: 790 849 : VECTOR C, BYTE); 
; 791 
; 79 '¢ 
: ak Fill in constant descriptor information. 
: 795 
: DSC$B_DTYPE) = DSCSK_DTYPE_T: 
; DSC$B-CLASS] = DSCSK~CLASS~S: 
: Ou DSCS$B“DTYPE) = CSCSK-DTYPE-T: 
: DSC$B~CLASS] = DSC$K-CLASS7S; 
: DSCSW7LENGTH) = 512; 
; DSC$A~POINTER] = RET_STRING (0); 


F 5 
LIBSSLEXICAL Internal r out ines for lexical functions 16-Sep-1984 01:04:32 AX-11 oii -32 v4.0-7 Page 25 
7-009 LIBSSFORMAT _RESULT = Format the result ae 039538 LIBRTL.S LIBLEXICA. 8 2:1 . a8 
; 80 0861 
PE Ce FN EGP at tae Senasiewg Sots eerrecioan ts ae 
Ps e.ec e Torma ng action appropriate to e em e. 
B05 bes x 9 pprop yp 
: 80 D866 CASE .RET_TYPE CO] FROM LIBSK_FMT_MIN TO LIBSK_FMT_MAX OF 
; 808 086 SET 
: 809 0868 
: 810 0869 CLIBSK_FMT_BINARY): 
> 811 0870 BEGIN ~ 
: big 0871 CTRSTR_DESCR CDSCS$W_LENGTH) = XCHARCOUNT CHUL") ¢ 
> 81 O87¢ CTRSTR~ =DESCR DSCSA POINTER] = T BYTE ¢*!UL' ; 
: 814 7 PRMLST™ -RET_NOMBER [0,6,3 
: 815 P 0874 SFAOL (CTRSTR = CTRSTR DESCR (0, f 050], 
: 816 P 0875 OUTLEN = RET_LERNGTH [0 
: 817 P 0876 OUTBUF = QUISTR_DESCR (6,0,0,03, 
: 818 087 PRMLST = PRMLST~LO]); 
: 819 0878 END; 
; 820 0879 
; 821 0880 CLIBSK_FMT_BOOLEAN): 
; B22 0881 IN 
: B2 088 IF .RET_NUMBER (0,0,1,0] 
> B24 088 THEN 
: 825 0884 4 BEGIN 
; 826 0885 4 RET LENGTH CO) = %CHARCOUNT ("TRUE") 
: B27 0886 4 CHSMOVE (XCHARCOUNT ('TRUE'), UPLIT BYTE (TRUE! ), 
: 828 0887 4 RET_STRING (OJ); 
; 829 0888 4 END 
: 830 0889 3 E 
> 831 0890 4 BEGIN 
: 832 0891 4 RET LENGTH CO] = XCHARCOUNT ('FALSE' 
; 833 0892 4 CHSAOVE (ZCHARCOUNT ('FALSE'), UPLIT ivte ("FALSE"), 
> 834 0893 4 _STRING [0]); 
: 835 0894 3 Ry 
: 836 0895 2 END; 
: 837 0896 2 
: 838 0897 : CLIB$K_FMT_HEX): 
> 839 0898 BEGIN 
: 840 0899 3 CTRSTR_DESCR CDSC$W_LENGTH] = _XCHARCOUNT (*!XL") 
> B41 0900 CTRSTR= RCDESCR DSCSA mach £010" yPt IT BYTE (*!xXL 5; 
> 84 0901 -RET_NOMBER 
> 84 P 090 SFADe CrasTR = CTRSTR DESC 9,0 8° 6° 0° 0), 
+ B44 P 090 OUTLEN = RET (Enern CO 
> B45 P 0904 OUTBUF = QUISTR_DESCR 6,0,0,03, 
> 846 905 PRMLST = PRMLST ); 
3; 847 0906 
: 848 0907 
: 849 0908 CLIBS$K_FMT_HEXSTRING): 
: 850 0909 BEGIN 
: 851 0910 LOCAL 
; 832 ogi! TEMP_STRING: VECTOR (512, BYTE]; 
3 Bei $318 CTRSTR_DESCR (DSC$W LENGTH] = -RET pLENGTH C0] * 2; 
> 855 0914 CTRSTR-DESCR CDSC$A~POIN TER }= 
: 856 0915 OTS$CVT_L_TZ (RET ~ STRING 0 chore DESCR’ CO, 0 9 0), 
: 857 0916 -CTRSTR DESERT DSC$W_LENGTH TH}. +R RET LENGTH (635; 
; 858 091 RET _LENGTH to RET_LENGTH C 


utines for lexical functions 1-52 Sep-1984 2 x 
RESULT = Format the result 14-Sep-1986 93: 93; a6 tt I 
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PAPA AAAI 
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wooowovond 
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AX-11 Blis 
BRIL” SR REIL 


CHSMOVE (.CTRSTR he COSC$W_LENGTH], TEMP_STRING, 
D:; RET_STRING (OJ); 

Lees. fn. NATE): 

RCOUNT ('!2%D") 


CTRSTR =pesth R Posceu_ LENGTH] = %CHA 
CTRSTR= DSCSA~ POINTER " a UPLIT BYTE (*!%p° 5; 
RMLST™ RET_NUMBER (0,0,0,0); 
SrAbe ths = CTRSTR DESCR (6,0.0,0), 
OUTLEN = RET_LENGTH (0 
OUTBUF = QUISTR_DESCR (6,0,0,02, 
PRMLST = PRMLST ); 
END; 
CLIB$K_FMT_PRIVILEGE): 
BEGIN 
AS TRING ointer to current char in string 


PRV TNARE : Neer VECTOR C, byTed. ! Privilege name 
PRV> ' Current privilege number 


Meigs: PTR = RET_ST 
V_NAME = LIBSSAT 

TNERU Ry PRV FROM 0 16 

TF -PRV,NAME CO] EQL 0 ! No more defined privilege names 


EXITLOOP; 
IF .RET_NUMBER (O,.PRV,1,0) 
THEN 


RIN geil ! First pies in string 
Pay. — § (0); First privilege name 


BEGIN 
STRING PTR = CHSMOVE (.PRV_NAME COJ, PRV_NAME [1], 
CHSWCHAR_A thei, STRING_PTR); 


END; 
PRY. NAME = .PRV_NAME + .PRV_NAME [0] + 1; ! Next name 
Heatitin PTR NEQA RET_STRING (0) 
STRING_PTR = .STRING_PTR = 1; ! Trim trailing comma 
RET LENGTH C04 = .STRING_PTR - rit _STRING (0); Get length 


CLIBSK_FMT_UIC): 
BEGIN ~ 


CTRSTR_DESCR Eoscs W_LENGTH] = ZCHARCOUNT ('!%u') 
CTRSTR~ RIDESCR DSCSA OROENTERD : Hh BYTE ¢*! Zu" ;. 
PRMLST .RET_NOMBER (CO 
SFAOL (CTRSTR = cTRS TR wpesch 

OUTLEN = TALER GTH CO 

OUTBUF = outs TR R_DESCR . 0,0, “ 

PRMLST = PRMLST™LO}); 


END; 
CLIBSK_FMT_PROT, LIBSK_FMT_VPROT): 
BEGIN 


-o 


4 ae 
LIBSSLEXICAL Internal routines for lexical functions 16-Sep =138¢ 9}: 93: 3 AX-11 Oi et ie V4.0-74 
1-009 LIBSSFORMAT_RESULT = Format the result 14-Sep 2: LIBRTL.SRCJLIBLEXICA. 
; 918 975 LOCAL 
; 91 976 PSTRING: VECTOR (24, BYTE], 
; 918 97 PSTRING PTR, 
7; 91 978 PROT_CHARS: REF VE Tor C ged. 
; 920 97 PROT-FIELD: BLOCK C1, BYTE 
; 921 980 
; 9 ¢ 981 '¢ 
; 9 BT i Select the correct protection codes for files or volumes. 
; 924 $38 ie 
; 925 984 
: 926 0985 IF .RET_TYPE EQL LIBSK_FMT_PROT 
; 927 pace THEN 
; 928 9 PROT_CHARS = UPLIT BYTE ('RWED') 
: 929 0988 ELS 
: 3 9 0989 PROT_CHARS = UPLIT BYTE ('RWLP'); 
3 93¢ 0991 PSTRING PTR = PST RING (0); 
: 93 099 INCR I 1 FROM TO 3 BY 1 DO 
: 934 0993 4 
; 935 0994 4 OeCAL 
; 936 0995 4 THIS_STRING: REF VECTOR C, BYTE); 
: 937 0996 4 PRMLST C71] = .PSTRING_PTR; 
; 938 0997 4 THIS STRING = .PSTRING_ PTR: 
: 939 0998 4 CHSWCHAR_A (0, PSTRING-PTR); ! Set initial Length 
; 940 0999 4 PROT _FIECD = .RET NUMBER. £0: . 186, 4,0] XOR &%X'F'; 
> 941 1000 4 IF .PROT_FIELD NEG 0 
: 96 1001 4 HEN 
> 96 1002 5 BEGIN 
: 944 1003 5 CHSWCHAR_A (%C'=", PSTRING PTR) 
> 945 1004 § THIS_STRING CO) =\.THIS_STRING [OJ + 1 
: 946 1005 5 INCR7J FROM 0 TO 3 BY 1700 
: 947 1006 6 BEGIN 
: 948 1007 6 IF .PROT_FIELD (C0,.J,1,0) 
: 949 1008 $ THEN 
3; 950 1009 BEGIN 
: 951 1010 7 CHSWCHAR_A (.PROT_CHARS C.J], PSTRING_PTR); 
3 92g 1011 7 THIS_ STRING CO) =". THIS_STRING (0) + T; 
; 95 1018 6 ND;~ 
: 954 101 5 END; 
: 955 1014 4 END; 
; 956 1015 END; 
> 957 1016 CTRSTR_DESCR CDSC$W_LENGTH) = 
3; 958 1017 ZCRARCOUNT ('SYSTEM!AC,OWNER!AC,GROUP!AC,WORLD!AC'); 
>: 959 1018 CTRSTR_DESCR CDSC$A_POINTER) = 
: 960 101 PCIT BYTE CSYSTER: AC Ow OUNER: AC. GR ,GROUP'AC,WORLD!AC'); 
3: 961 Pp 190 SFAOL (CTRSTR = CTRSTR DESCR (0,0,0.0 
: 962 P 1021 OUTLEN = RET_LENGTH [O 
: 963 P 1088 OUTBUF = OUTSTR DESC 6,0,0,0), 
: 964 10 PRMLST = PRMLST™ 
; 965 1024 3 
; 966 1025 
3; 967 10 § 
; 968 18 CLIBSK_FMT_ACP): 
: 9 1028 BEGIN 
: 379 18 5 - ACPTYP PTR: REF VECTOR C, BYTE 
: 972 1031 IF .RET_NUMBER (0,0,32,0] GTRU DVISe_ACP_JNL 


-r 


5 
L IBSSLEXICAL Internal routines for lexical functions 18-Sep-19 4 93:06:38 AX-11 Oi retrie ye Oarae 
-009 LIBSSFORMAT_RESULT = Format the result 14-Sep-1984 12:39: LIBRTL.SRCIJLIBLEXICA.B52;1 
973 THEN 
ore og OTE = ACP_TYPES (0) ! Illegal 
38 ACPTYP_PTR = ACP_TYPES (2*,RET_NUMBER (0,0,32,0]]; 
97 RET_LENGTHCOJ = ,ACPTYP_PTR (OJ; 
978 CHSMOVE (.RET_LENGTH COJ> ACPTYP_PTR C1], RET_STRING (OJ); 
979 END; 
980 
981 4 CLIBSK_FMT_STATE): 
98 4 BEGIN 
3B OCAL FATE PTR: REF VECTOR C, BYTE); 
985 IF .RET_NOMBER 6 0.85.04 Gfru SCH$C_CUR 


PF sie hae = STATES CO] ! Illegal 
PTR = STATES C2*.RET NUMBER [0,0,32,0]]; 


STATE 
RET LENGTA (0) = SMa PTR COT; 
cHSROVE (.RET_LENGTH COJ, STATE_PTR C1], RET_STRING (OJ); 


CLIBSK_FMT_MODE): 
BEGIN 


AAQMMAMNMMNVMNUIUIUI ES BELLE 
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3 1 

: 1 

s 1 

3 1 

; 1 

; 1 

$ 1 

$ 1 

$ 1 

3 1 

: 1 

3 1 

: 1 

$ 1 

: 1 

3 1 

: 1 

s 1 

3 1 

: 1 2 

: 1 

: > 1 

3; «995 1 

; 996 1 3 LOCAL 

; 997 1 MODE_PTR: REF VECTOR C, BYTE); 

; 998 1 MODE_PTR = MODES (0); 

; 133 ; INCRO 1 FROM 1 TO .RET_NUMBER [0,0,32,0] DO 

; 1001 1 4 IF .MODE_PTR CO] EQLU 0 

: 1OOe 1 4 THEN 

: 100 1 5 BEGIN ; 

: 1004 1063 5 MODE_PTR = MODES (0); ! Invalid, use OTHER 
: 1005 1064 5 EXITCOOP; 

: 1006 1065 4 END; 

: 1007 1066 4 MODE_PTR = .MODE_PTR + .MODE_PTR [0] + 1; ! Skip this string 
: 1008 1067 3 END; 

: 1009 106 3 RET_LENGTH (0) = ,MODE PTR (0); 

3 1010 106 CHSMOVE (.RET_LENGTH CO), MODE_PTR (1), RET_STRING (0)); 
3 131) 4 2 END; 

: 1918 6 CLIBSK_FMT_PSTRING,LIBSK_FMT_ASCIC): ! Strip trailing blanks 
; 1015 107 DECRU I FROM .RET_LENGTH [0] TO 1 DO 

; 1016 107 IF .RET_STRING C.1) EQL XC' 

: 1018 107 RET_LENGTH CO] = .RET_LENGTH [OJ - 1; 

3; 1019 107 END; 

3 1930 107 

3: 1021 108 ! Note: SGETJPI does not return counted strings. It returns 

3 10e¢ He these strings as zero-padded strings. 

: 1024 10 ! CLIBSK_FMT_ASCIC): 

: 1058 1 RET_LENGTH CO) = .RET STRING [0] 

; 1099 10 i CHSMOVE (.RET_LENGTH rb)" RET_STRING [1], RET_STRING [0)); 
1058 1088 3 _ 
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Internal routines for lexical functions 
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LIBSSLEXICAL Internal routines for lexical functions 16-Sep-1984 01:04: AX-11 Bliss-32 V4.0-74 Page 2 L. 
1-009 LIBSSFORMAT_RESULT = Format the result 1328e8= 138 RCH LIBRTL.SRC (ISLEXICA B82: 1 (135 1: 
EO AD 08 A B6 MOVL § RET_NUMBER, PRMLST : 0926 ; 
0099 RY ge 9 BRW 3 : 0930 ; 
53 56 b0 OB 10$ MOVL R6 STRING PTR + 0940 ; 
0001 CA 9E 000C MOVAB LIBSSAT_PRO_NAMES, PRV_NAME + 0941 ; 
9 pa C6 CLRL RV + 0947 ; 
58 67 9A C8 11$ HOVZBL (PRV_NAME) . RB + 0944 ; 
08 08 BC 9 €3 ¢ BBC PRV, @RET_NUMBER, 12$ + 0947 ; 
: 1 A? 8 6 000 MOVC3 RB, 1(PRV-NAME), (STRING_PTR) + 0951 ; 
83 ¢ 00D MOVB #44, (STRING PTA)+ + 0952 : 
7 01 A847 9E OO0DA 128:  MOVAB 1(RB)CPRV_NAREJ, PRV_NAME + 0954 ; 
29 D O0DF INCL RV + 0942 ; 
3F 9 D £1 CMPL = PRV, #63 : ; 
ty 1B O00E4 BLEQU 11 : ; 
56 D1 OOOE6 13$:  CMPL = STRING_PTR, R6 + 0956 ; 
08 13 009 BEQL ©1148 : ; 
53 po? O00EB DECL_ STRING_PTR : 0958 : 
oc BC 53 56 A3 QOOED 14$: SUBW3 6, STRING_PTR, @RET_LENGTH + 0959 : 
04 OO0F RET + 0866 ; 
FBO 03 BO O00F3 15$:  MOVW #3, CTRSTR_DESCR + 0964 ; 
FC AD O1FA CA 9E 000F7 MOVAB P.AAJ, CTRSTR_DESCR+4 + 0965 ; 
FF7D 31 S90FD BRW + 0966 ; 
OE 10 AC D1 00100 16$:  CMPL  RET_TYPE, #14 + 0985 : 
07 12 00104 BNEG : ; 
55 O1FD CA 9E 00106 MOVAB P.AAK, PROT_CHARS + 0987 : 
05 11 0010B BRB : ; 
55 0201 CA 9€ 0010D 17$: | MOVAB  P.AAL, PROT_CHARS : 0989 ; 
54 C8 AD 9E 00112 18$:  MOVAB PSTRING, PSTRING_PTR + 0991 F 
50 D4 00116 CLRL : 0999 ; 
EO AD4O 54 DO 00118 19$: MOVL PSTRING_PTR, PRMLSTCI) : 0996 ; 
51 54 00 0011D MOVL § PSTRING-PTR, THIS_STRING : 0997 ; 
4 94 00120 CLRB = (PSTRING_PTR)+ : 0998 ; 
53 50 ; 78 00122 ASHL in Fi : 0999 ; 
52 08 BC 04 EF 00126 EXTZ2V R3. #4, @RET_NUMBER, R2 ; ; 
57 52 OF p 012¢ XORBS #15, R2, PROT_FIELD : : 
15 13 00130 BEQL 22$ : 1000 ; 
84 3D 90 001 : MOVB #61, (PSTRING_PTR)+ : 1003 3 
61 96 001 INCB = (THE S_STRING) : 1004 : 
52 04 00137 CLRL Ss + 1005 ; 
06 57 5 Fi 00139 20$: BBC J. PROT_FIELD, 21$ + 1007 : 
84 6245 90 00130 MOVB  (J)CPROT CHARS], (PSTRING_PTR)+ : 1010 : 
61 96 00141 INCB. = (THIS_STRING) > 1011 ; 
F2 52 3 F3 00143 218 AOBLEQ #3, J> : 1005 3 
CD 50 . 147 2$ AOBLEQ #3. I, 19$ : 099¢ : 
F8 AD 4 : 14B MOVW #36, €TRSTR_DESCR : 101 ; 
FC OAD 0205 CA 9E OO14F MOVAB P.AAM, CTRSTR_DESCR+4 : 1019 ; 
£0 AD OF ot 5 238 PUSHAB PRMLST > 1023 : 
FO AD 9F 00158 PUSHAB OUTSTR_DESCR F ; 
OC AC pp 0158 PUSHL T_LENGTH : : 
F8 AD OF O15 PUSHAB CTRSTR_DESCR : : 
000000006 00 04 FB O16! CALLS #4, SYSSFAOL ps : 
06 08 Bt D1 o169 248 CMPL @RET NUMBER, "6 > 1031 ; 
1B 0016D BLEQU 25 : : 
51 6A H a8 MOVAB A p _TYPES, ACPTYP_PTR : 1033 ; 
50 08 BC 1 78 ie 25$ ASHL #1, @RET_NUMBER, RO > 1035 : 


; Routine Size: 484 bytes, Routine Base: _LIBSCODE + 0309 
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IBSSLEXICAL Internal routines for lexical functions 16-Sep-1984 01:04: AX-11 Bliss-32 V4.0-74 Page 33 
1-009 LIBSSFORMAT_RESULT = Format the result 137388-1 382 9395508 LIBRTL.SRC CISLERICA-B92:1 ’ «133 r 
51 6A40 DF 179 MOVAL Ace _TYPESCROJ, ACPTYP_PTR : : 
16 17D BRE 28$ : 1036 : 
OE 08 BC pi Ve 268: CMP ak T_NUMBER, #14 + 1044 : 
51 38 AA 9E 001 3 MOVAB STATES, STATE_PTR > 1046 | : 
50 08 gC 4 78 00188 27$:  ASHL #1 aRer NUMBER, RO > 1048 : 
1 38 AAGO DE 001 MOVAL STATESCROJ, STATE_PTR : : 
oc BC 61 98 00193 288: — MOVZEW (STATE PTRS, @RET-LENGTH ; 1049 : 
66 01 «Al oc BC $ 1%? Bove @RET_LENGTH, 1(STATE_PTR), (R6) : 4320 : 
59 0080 A F D140 29$:  MOVAB MODES, MODE_PTR : 1089 : 
1 00 OO1A MOVL #1, I : 1058 : 
15 11 OO1A8 BRB 32§ ; ; 
60 95 OO1AA 30$:  TSTB  (MODE_PTR) ; 1060 : 
07 12 OO1AC BNEQ 31$ : : 
50 0080 CA 9E Diag MOVAB MODES, MODE_PTR ; 1063 : 
10 11 0018 BRA 33$ : 1062 : 
51 60 9A 00185 31%:  MOVZBL (MODE_PTR). R1 > 1066 ; 
50 01 A140 9E 00188 MOVAB 1(R1)CMODE_PTRJ, MODE_PTR ; ; 
52 D6 001BD INCL =I ; 1058 : 
08 BC 52 (1 00 18f 328: CMPL i @RET_NUMBER : 
E5 1B 001C3 BLEQU 36$ F 
0c BC 60 98 001C5 33$:  MOVZBW (MODE PTR), @RET_LENGTH > 1068 
66 01 Ad oc =«=BC 001C9 MOVC @RET_CENGTH, 1(MODE_PTR), (R6) : 1069 
4 O01 cr RET ; 0866 
50 OC BC 3C 001D0 34$:  MOVZWL @RET_LENGTH, I : 1074 
0B 11 001D4 BRB 7$ : 
20 6046 91 00106 35$:  CMPB (1)CR6), #32 ; 1075 
03 Ne 001DA BNEQ 6$ ie 
0c BC B7 001DC DECW § @RET_LENGTH : 1077 
50 07 O01DF 36$:  DECL : 1075 
F3 12 OO1E1 37$:  BNEQG 358 ; 
04 OO1E3 38$: _—RET : 1096 
| 
| 
| 


L IBSSLERICAL Internal routines for lexice! functions 

-009 LIBSSFORMAT_RESULT = Format the result 

: 1039 1097 1 END 

: 1040 1098 1 

: 1041 1099 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes 

; _LIBSCODE 1469 NOVEC,NOWRT, RD, 
: Library Statistics 

et ae re ee es ay |, ie Symbols 
: File Total Loaded 
: _$255$DUA28: :ESYSLIBILIB .L32;1 18619 78 
; ~$25S5$DUA28:CLIBRTL.OBJIRTLLIB.L32;1 36 17 
; COMMAND QUALIFIERS 


3; Size: 916 code + 553 data bytes 
; Run Time: 0:20.2 

; Elapsed se 1:30. 

3; Lines/CPU Min ¢6 $ 

; Lexenes/CPU-Min: 4234 

; ry Used: 229 pages 

: — ation Complete 


6 
1B-sep-1984 01:04:52 yAKct1 BLisg=82 Vs. 


! End of module LIBSSLEXICAL 


On BS251 


Attributes 
EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
a apapmanar Pages Processing 
Percent Mapped Time 
9 1000 i 
4 8 0:00.1 
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